home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
io2.doc
< prev
next >
Wrap
Text File
|
1995-03-31
|
2KB
|
41 lines
IO2: Another collection of memory access utilities, by various authors.
Note: These are NOT downloadable in ASCII form.
DIR
SYSRCL @ #addr or string -> object.
[ not listable ]
PEEKF @ #addr -> contents.
\<< NEWOB Code
\>>
PRC2 @ Port Recall Version 2: Port number -> port's objects & <p#> on stack.
[ not listable ]
PRCL @ Port Recall: Port number -> port's objects on stack.
\<< # 18CD7h SYSEVAL # 21922h SYSEVAL # 18DBFh SYSEVAL 1 + ROLL DROP
\>>
Rcl @ to be used with FIND: subtracts 1 after FIND and does SYSRCL.
\<< DUP 1 - SYSRCL
\>>
FIND @ #search, start#address -> #search, find#address+1.
@ Note: last digit of #search is len(#search)-1.
\<< RCWS 20 STWS SWAP # 0h OR SWAP STWS Code 1 +
\>>
ASCNC @ Convert from ASC with No Checksum. (Poor man's assembler)
\<< "0000" +
IF DUP TYPE 2 \=/
THEN "Not A String" DOERR
END RCWS \-> ws
\<< 16 STWS # 0h NEWOB SWAP DUP SIZE
IF DUP 4 <
THEN DROP SWAP DROP "Invalid String" DOERR
END DUP 65 / IP - 4 - # 18CEAh SYSEVAL "" OVER # 61C1Ch SYSEVAL
SWAP # 6641F8000AF02DCCh # 130480679BF8CC0h # 518Ah SYSEVAL
# 19610313418D7EA4h # 518Ah SYSEVAL # 7134147114103123h # 518Ah SYSEVAL
# 5F6A971131607414h # 518Ah SYSEVAL # 12EA1717EA3F130Ch # 518Ah SYSEVAL
# 280826B3012808F4h # 518Ah SYSEVAL # 6B7028080BEE9091h # 518Ah SYSEVAL
# BE5DC1710610C512h # 518Ah SYSEVAL # 705D00003431A078h # 518Ah SYSEVAL
# 3D8FA26058961431h # 518Ah SYSEVAL # 312B0514h # 518Ah SYSEVAL
# 18F23h SYSEVAL ws STWS ROT DROP SWAP DROP
\>>
\>>
END